home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0886.arc / PROEXP2.LTG < prev    next >
Text File  |  1986-06-02  |  640b  |  33 lines
  1.  
  2.  
  3. LISTING 2.
  4.  
  5. Cash Register Queueing
  6. -- FREQ = average frequency of arrivals
  7. -- CHECK-OUT = time required for average check-out
  8. -- LINE = length of line of customers
  9. -- F_C = counter for frequency of arrivalsè-- C_C = counter for check-outs
  10. BEGIN
  11.     INITIALIZE
  12.         Read from keyboard:  FREQ, CHECK-OUT
  13.         LINE = 0
  14.         F_C = 0
  15.         C_C = 0
  16.     LOOP
  17.     WHILE no keypress
  18.         F_C = F_C + 1
  19.         IF F_C >= FREQ
  20.         THEN
  21.             LINE = LINE + 1
  22.             F_C = 0
  23.         C_C = C_C + 1
  24.         IF C_C >= CHECK-OUT
  25.         THEN 
  26.             C_C = 0
  27.             IF LINE > 0
  28.             THEN LINE = LINE -1
  29.         Display LINE
  30.         Check for keypress
  31.     END LOOP
  32. END
  33.